home *** CD-ROM | disk | FTP | other *** search
/ TOS Silver 2000 / TOS Silver 2000.iso / programm / MM2_DEV / S / COMP / TEST / RECUROBJ.M < prev    next >
Encoding:
Text File  |  1992-02-24  |  305 b   |  21 lines
  1. MODULE RecurObj;
  2.  
  3. FROM SYSTEM IMPORT TSIZE, ASSEMBLER;
  4.  
  5. TYPE Object = RECORD
  6.                 i: INTEGER;
  7.                 o: Object
  8.               END;
  9.  
  10. VAR x: Object;
  11.     l: LONGCARD;
  12.  
  13. BEGIN
  14.   ASSEMBLER BREAK END;
  15.   l:= SIZE (x);
  16.   x.i:= 1;
  17.   x.o.i:= 2;
  18.   x.o.o.i:= 3
  19.   .
  20. END RecurObj.
  21.